Plot[m=(a-100)/61, {a, 0, 3,150}]